0 REM PRODOS VER 3 FAMILY ROOTS: /FR/ PROGRAMS PROGRAM. COPYRIGHT (C) 1987, STEPHEN C. VORENBERG
50 GOSUB 850: PRINT CHR$(4)"PR#"Q(43)
70 READ LA: FOR I = 1 TO LA: READ C$(I): READ EM$(I): READ OP(I): NEXT :LB = 0: READ OP: FOR I = 1 TO OP: READ OP$(I): NEXT
100 GOSUB 850: PRINT : PRINT "CHOOSE WHICH PROGRAM TO RUN, BY LETTER:"
105 PRINT
110 J = Q(2) -3: FOR I = 1 TO LA: PRINT CHR$(64 +I)") "C$(I) SPC( 11 - LEN(C$(I)))EM$(I): IF INT(I/J) *J = I THEN PRINT "PRESS ANY KEY TO CONTINUE";: GOSUB 690
115 NEXT : PRINT
120 INVERSE : PRINT "WHICH (A-" CHR$(64 +LA)")?";: GOSUB 690:C = ASC(YN$) -64: IF YN$ = CZ$ THEN 100
122 IF YN$ < > CHR$(13) THEN 130
125 LB = LB +1: IF LB >10 THEN 350
127 GOTO 120
130 IF C <1 OR LA <C THEN 120
131 IF OP(C) <1 THEN 350
133 GOSUB 7100: PRINT "LOADING '"C$(C)"'"
150 X3 = LD:X1 = LD:X2 = WH(X1,1)
180 ONERR GOTO 300
190 PRINT CHR$(4)"PREFIX,S"ME(X2,2)",D"ME(X2,3): PRINT CHR$(4)"PREFIX": INPUT PF$:A$ = ME$(X2): IF LEFT$(A$, LEN(PF$)) = PF$ THEN PF$ = A$: PRINT CHR$(4)"PREFIX"PF$
200 PRINT CHR$(4)"RUN"C$(C)
300 POKE 216,0: GOSUB 3000: IF X1 < >X3 THEN X2 = WH(X1,1): GOTO 180
310 LD = X3:X1 = X3:X2 = WH(X1,1): PRINT : PRINT "PLEASE PLACE DISK "OP$(OP(C))" INTO DRIVE "X2". ";: GOSUB 860: PRINT "PRESS ANY KEY WHEN READY";: GOSUB 690: IF YN$ = CZ$ THEN 20000